﻿Module Module11
    Sub Main()
        Dim A, B, C As Integer
        A = 10
        B = 20
        C = Max(A, B)
        Console.WriteLine("Max({0},{1})={2}", A, B, C)
        Console.ReadKey()
    End Sub

    Function Max(ByVal a As Integer, ByVal b As Integer) As Integer
        If a > b Then
            Return a
        Else
            Return b
        End If
    End Function
End Module
